home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_kanji.ps < prev    next >
Text File  |  2003-01-03  |  4KB  |  149 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Scaffolding for Kanji fonts.  This is based on the Wadalab free font
  8. % from the University of Tokyo; it may not be appropriate for other
  9. % Kanji fonts.
  10.  
  11. /currentglobal where
  12.  { pop currentglobal { setglobal } true setglobal }
  13.  { { } }
  14. ifelse
  15.  
  16. % Define the encoding for the root font.
  17.  
  18. /KanjiEncoding
  19. % \x00
  20.     0    0    0    0    0    0    0    0
  21.     0    0    0    0    0    0    0    0
  22.     0    0    0    0    0    0    0    0
  23.     0    0    0    0    0    0    0    0
  24. % \x20
  25.     0    1    2    3    4    5    6    7
  26.     8    0    0    0    0    0    0    0
  27.     9    10    11    12    13    14    15    16
  28.     17    18    19    20    21    22    23    24
  29. % \x40
  30.     25    26    27    28    29    30    31    32
  31.     33    34    35    36    37    38    39    40
  32.     41    42    43    44    45    46    47    48
  33.     49    50    51    52    53    54    55    56
  34. % \x60
  35.     57    58    59    60    61    62    63    64
  36.     65    66    67    68    69    70    71    72
  37.     73    74    75    76    77    0    0    0
  38.     0    0    0    0    0    0    0    0
  39. % \x80
  40.     0    0    0    0    0    0    0    0
  41.     0    0    0    0    0    0    0    0
  42.     0    0    0    0    0    0    0    0
  43.     0    0    0    0    0    0    0    0
  44. % \xA0
  45.     0    1    2    3    4    5    6    7
  46.     8    0    0    0    0    0    0    0
  47.     9    10    11    12    13    14    15    16
  48.     17    18    19    20    21    22    23    24
  49. % \xC0
  50.     25    26    27    28    29    30    31    32
  51.     33    34    35    36    37    38    39    40
  52.     41    42    43    44    45    46    47    48
  53.     49    50    51    52    53    54    55    56
  54. % \xE0
  55.     57    58    59    60    61    62    63    64
  56.     65    66    67    68    69    70    71    72
  57.     73    74    75    76    77    0    0    0
  58.     0    0    0    0    0    0    0    0
  59. 256 packedarray def
  60.  
  61. % Define a stub for the base font encoding.
  62.  
  63.   /KanjiSubEncoding { /KanjiSubEncoding .findencoding } bind def
  64. %% Replace 3 (gs_ksb_e.ps)
  65.   EncodingDirectory /KanjiSubEncoding
  66.    { (gs_ksb_e.ps) //systemdict begin runlibfile KanjiSubEncoding end }
  67.   bind put
  68.  
  69. % Support procedures and data.
  70.  
  71. /T1FontInfo 8 dict begin
  72.   /version (001.001) readonly def
  73.   /FullName (KanjiBase) readonly def
  74.   /FamilyName (KanjiBase) readonly def
  75.   /Weight (Medium) readonly def
  76.   /ItalicAngle 0 def
  77.   /isFixedPitch false def
  78.   /UnderlinePosition 0 def
  79.   /UnderlineThickness 0 def
  80. currentdict end readonly def
  81.  
  82. /T1NF            % <fontname> T1NF <font>
  83. {
  84. 20 dict begin
  85.   /FontName exch def
  86.   /FontType 1 def
  87.   /FontInfo T1FontInfo def
  88.   /FontMatrix [.001 0 0 .001 0 0] def
  89.   /FontBBox [0 0 1000 1000] def
  90.   /Encoding KanjiSubEncoding def
  91.   /CharStrings 150 dict def
  92.   /PaintType 0 def
  93.   /Private 2 dict def
  94.   Private begin
  95.     /BlueValues [] def
  96.     /password 5839 def
  97.   end
  98. FontName currentdict end definefont
  99. } def
  100.  
  101. /T0NF            % <fontname> T0NF <font>
  102. {
  103. 20 dict begin
  104.   /FontName exch def
  105.   /FDepVector exch def
  106.   /FontType 0 def
  107.   /FontMatrix [1 0 0 1 0 0] def
  108.   /FMapType 2 def
  109.   /Encoding KanjiEncoding def
  110. FontName currentdict end definefont
  111. } def
  112.  
  113. % Define the composite font and all the base fonts.
  114.  
  115. /CompNF            % <fontname> CompNF <font>
  116. {
  117. /newname1 exch def
  118. newname1 dup length string cvs /str exch def
  119. str length /len exch def
  120. /fdepvector 78 array def 
  121. /j 1 def
  122. 16#21 1 16#74 {
  123. /i exch def
  124. KanjiEncoding i get 0 gt {
  125. len 4 add string /newstr exch def
  126. newstr 0 str putinterval
  127. newstr len (.r) putinterval
  128. newstr len 2 add  i 16 2 string cvrs putinterval
  129. newstr cvn /newlit exch def
  130. newlit T1NF /newfont exch def
  131. fdepvector j newfont put
  132. /j j 1 add def
  133. } if
  134. } for
  135. fdepvector 0 fdepvector 1 get put
  136. /j 0 def
  137. fdepvector newname1 T0NF
  138. } def
  139.  
  140. % Define an individual character in a composite font.
  141. /CompD            % <charstring> <(HL)> CompD -
  142.  { currentfont /Encoding get 1 index 0 get get    % FDepVector index
  143.    currentfont /FDepVector get exch get        % base font
  144.    dup /Encoding get 3 -1 roll 1 get get    % base font character name
  145.    exch /CharStrings get exch 3 -1 roll put
  146.  } bind def
  147.  
  148. exec
  149.